home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK programs / $ProgressTest < prev    next >
Encoding:
Text File  |  1991-10-28  |  176 b   |  12 lines  |  [TEXT/KEEN]
  1. #$ProgressTest
  2.  
  3. BEGIN {
  4.         for (i = 1; i <= 3; ++i)
  5.             {
  6.             for (j = 1; j <= 1000; ++j)
  7.                 ;
  8.             numProgs = progress("i = " i)
  9.             prompt("progress returned: " numProgs)
  10.             }
  11.  
  12.     }